unit ConsultaMovimentoEstoque;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFomCadastro, DBClient, Provider, DB, DBTables, Menus, StdCtrls,
  ComCtrls, DBCtrls, Buttons, Grids, DBGrids, ExtCtrls;

type
  TFConsultaMovimentoEstoque = class(TFormCadastro)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    Label7: TLabel;
    Label8: TLabel;
    DBText7: TDBText;
    DBText8: TDBText;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    GroupBox3: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBMemo1: TDBMemo;
    DBText12: TDBText;
    DBText13: TDBText;
    DBText14: TDBText;
    DBText15: TDBText;
    DBText16: TDBText;
    DBText17: TDBText;
    DBText18: TDBText;
    DBText19: TDBText;
    DBText20: TDBText;
    DBText21: TDBText;
    DBText22: TDBText;
    DBText23: TDBText;
    cdsCadastroITENSMOVEST_CODIGO: TIntegerField;
    cdsCadastroITENSMOVEST_MOVIMENTOESTOQUE: TIntegerField;
    cdsCadastroITENSMOVEST_PRODUTO: TIntegerField;
    cdsCadastroITENSMOVEST_QUANTIDADE: TFloatField;
    cdsCadastroITENSMOVEST_VALORI: TFloatField;
    cdsCadastroITENSMOVEST_VALORC: TFloatField;
    cdsCadastroITENSMOVEST_QTDESTANTGERAL: TFloatField;
    cdsCadastroITENSMOVEST_QTDESTANTLOCAL: TFloatField;
    cdsCadastroITENSMOVEST_CUSTOMEDIOUNITANT: TFloatField;
    cdsCadastroITENSMOVEST_LOCAL: TIntegerField;
    cdsCadastroDATA_CADASTRO: TDateTimeField;
    cdsCadastroDATA_EXCLUSAO: TDateTimeField;
    cdsCadastroDATA_AUTERACAO: TDateTimeField;
    cdsCadastroEXCLUIDO: TStringField;
    cdsCadastroUSUARIO_EXCLUSAO: TStringField;
    cdsCadastroUSUARIO_AUTERACAO: TStringField;
    cdsCadastroUSUARIO_CADASTRO: TStringField;
    cdsCadastroFORNECEDOR: TStringField;
    cdsCadastroMOVEST_CODIGO: TIntegerField;
    cdsCadastroMOVEST_DATALANCAMENTO: TDateTimeField;
    cdsCadastroMOVEST_DOCUMENTO: TStringField;
    cdsCadastroMOVEST_DATADOCUMENTO: TDateTimeField;
    cdsCadastroMOVEST_OS: TIntegerField;
    cdsCadastroMOVEST_NF: TIntegerField;
    cdsCadastroCENTROCUSTO: TStringField;
    cdsCadastroMOVEST_TRANSFERENCIAESTOQUE: TIntegerField;
    cdsCadastroMOVEST_ORIGEM: TStringField;
    cdsCadastroMOVEST_CODIGO_ORIGEM: TIntegerField;
    cdsCadastroLOCAL: TStringField;
    cdsCadastroPROD_CODIGO: TIntegerField;
    cdsCadastroPROD_DESCRICAOENT: TStringField;
    cdsCadastroPROD_DESCRICAOSAI: TStringField;
    cdsCadastroPROD_REFERENCIA: TStringField;
    cdsCadastroPROF_REF_FABRICANTE: TStringField;
    cdsCadastroPROD_UNIDSAIDA: TStringField;
    cdsCadastroPROD_GRUPOPRODUTO: TIntegerField;
    cdsCadastroPROD_CLASSIFPROD1: TIntegerField;
    cdsCadastroPROD_CLASSFISCAL2: TIntegerField;
    cdsCadastroPROD_CLASSFISCAL9: TIntegerField;
    cdsCadastroPROD_CONTACONTABIL: TIntegerField;
    cdsCadastroPROD_ICMS: TStringField;
    cdsCadastroPROD_IPI: TStringField;
    cdsCadastroPROD_TIPO: TIntegerField;
    cdsCadastroPROD_NATUREZA: TIntegerField;
    cdsCadastroPROD_SITUACAOTRIBUTARIA: TIntegerField;
    cdsCadastroPROD_VALOR: TFloatField;
    cdsCadastroPROD_VALORCOMPRA: TFloatField;
    cdsCadastroPROD_SUBS_TRIBUTARIA: TFloatField;
    cdsCadastroPROD_INCENTIVO_FISCAL: TStringField;
    cdsCadastroPROD_PESO_BRUTO: TFloatField;
    cdsCadastroPROD_PESO_LIQUIDO: TFloatField;
    cdsCadastroPROD_ALIQUOTA_ICMS: TFloatField;
    cdsCadastroPROD_ALIQUOTA_IPI: TFloatField;
    cdsCadastroPROD_REDUCAO_BASE_ICMS: TFloatField;
    cdsCadastroPROD_REDUCAO_BASE_IPI: TFloatField;
    cdsCadastroPROD_PERC_AGREGACAO_ICMS_SUB: TFloatField;
    cdsCadastroPROD_PERC_PIS: TFloatField;
    cdsCadastroPROD_CREDITAR_PIS: TIntegerField;
    cdsCadastroPROD_PERC_COFINS: TFloatField;
    cdsCadastroPROD_CREDITAR_COFINS: TIntegerField;
    cdsCadastroPROD_ICMS_SUBS: TStringField;
    cdsCadastroPROD_CONTACONTABIL_REC_CUST: TIntegerField;
    cdsCadastroPROD_CONTACONTABIL_CUSTO: TIntegerField;
    cdsCadastroPROD_CONTACONTABIL_RECEITA: TIntegerField;
    cdsCadastroPROD_CONTADEVOLUCAO: TIntegerField;
    cdsCadastroPROD_CONSIDERAR_TOPERACAO_NFSAI: TIntegerField;
    cdsCadastroPROD_CODIGO_APURACAO: TStringField;
    cdsCadastroPROD_IDENTI_ESPECIAL: TStringField;
    cdsCadastroPROD_CODIGO_NBM: TStringField;
    cdsCadastroPROD_PROPIEDADE: TIntegerField;
    cdsCadastroPROD_COMISSAO_VEND: TFloatField;
    cdsCadastroPROD_CV: TFloatField;
    cdsCadastroPROD_FORNECEDOR_PREF: TIntegerField;
    cdsCadastroPROD_DESCRICAO_COMPLEMENTO: TStringField;
    cdsCadastroPROD_DESCRICAO_COMPLEMENTO2: TStringField;
    cdsCadastroPROD_DESCRICAO_COMPLEMENTO3: TStringField;
    cdsCadastroPROD_DESCRICAO_COMPLEMENTO4: TStringField;
    cdsCadastroPROD_DESCRICAO_COMPLEMENTO5: TStringField;
    cdsCadastroPROD_TRAVAPEDIDO: TStringField;
    cdsCadastroPROD_CODIGO_CONFERENCIA: TIntegerField;
    cdsCadastroPROD_MARCA: TStringField;
    cdsCadastroPROD_FABRICANTE: TIntegerField;
    cdsCadastroPROD_NOVO_RECUPERADO: TStringField;
    cdsCadastroPROD_LOCALIZACAO: TStringField;
    cdsCadastroPROD_ATIVO: TStringField;
    cdsCadastroPROD_CONTROLE_MANUTENCAO: TStringField;
    cdsCadastroPROD_KIT: TStringField;
    cdsCadastroPROD_USO_CONSUMO: TStringField;
    cdsCadastroPROD_MERCADO_NR: TStringField;
    cdsCadastroPROD_PERECIVEL: TStringField;
    cdsCadastroPROD_RESUPRIMENTO: TStringField;
    cdsCadastroPROD_PPEDIDO: TStringField;
    cdsCadastroPROD_QTD_PPEDIDO: TIntegerField;
    cdsCadastroPROD_DT_PPEDIDO: TDateTimeField;
    cdsCadastroPROD_PRAZO_ENTREGA: TIntegerField;
    cdsCadastroPROD_TIPOVENDA: TIntegerField;
    cdsCadastroPROD_IND_CENTROCUSTO: TStringField;
    cdsCadastroPROD_CODIGO_ANT: TIntegerField;
    cdsCadastroCHAVE_CLASS: TStringField;
    cdsCadastroTIPOMOVIMENTOESTOQUE: TStringField;
    cdsCadastroTIPMOVEST_ENTRADASAIDA: TStringField;
    cdsCadastroVALOR_TOTAL: TFloatField;
    cdsCadastroCUSTO_MEDIO_ANT_TOTAL: TFloatField;
    cdsCadastroITENS_MOVEST_OBS: TStringField;
    Label25: TLabel;
    DBText24: TDBText;
    cdsCadastroLOC_DESCRICAO: TStringField;
    cdsCadastroVALOR_ESTOQUE: TFloatField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure dsCadastroDataChange(Sender: TObject; Field: TField);
    procedure dsCamposPesquisaDataChange(Sender: TObject; Field: TField);
    procedure cdsCadastroAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FConsultaMovimentoEstoque: TFConsultaMovimentoEstoque;

implementation

{$R *.dfm}

procedure TFConsultaMovimentoEstoque.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;

  FConsultaMovimentoEstoque.Release;
  FConsultaMovimentoEstoque := Nil;

end;

procedure TFConsultaMovimentoEstoque.FormCreate(Sender: TObject);
begin
  inherited;

  BtnIncluir.Visible:=false;
  BtnEditar.Visible:=false;
  BtnExcluir.Visible:=false;

end;

procedure TFConsultaMovimentoEstoque.dsCadastroDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;

  BtnIncluir.Visible:=false;
  BtnEditar.Visible:=false;
  BtnExcluir.Visible:=false;
end;

procedure TFConsultaMovimentoEstoque.dsCamposPesquisaDataChange(
  Sender: TObject; Field: TField);
begin
  inherited;
  BtnIncluir.Visible:=false;
  BtnEditar.Visible:=false;
  BtnExcluir.Visible:=false;  

end;

procedure TFConsultaMovimentoEstoque.cdsCadastroAfterOpen(
  DataSet: TDataSet);
begin
  inherited;
  BtnIncluir.Visible:=false;
  BtnEditar.Visible:=false;
  BtnExcluir.Visible:=false;
end;

end.
